(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      6049,        204]
NotebookOptionsPosition[      5461,        179]
NotebookOutlinePosition[      5818,        195]
CellTagsIndexPosition[      5775,        192]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.67350050581304*^9, 3.673500517346699*^9}, {
  3.673501002207432*^9, 3.673501022260579*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"y1", "=", 
    RowBox[{"\[Mu]", "*", "\[Lambda]", "*", "w1"}]}], ";", 
   RowBox[{"y2", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Lambda]"}], ")"}], "*", "\[Mu]", "*", "w2"}]}], 
   ";", 
   RowBox[{"G1", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Lambda]", "*", 
        RowBox[{"w1", "^", 
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]"}], ")"}]}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Lambda]"}], ")"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"w2", "*", "T"}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]"}], ")"}]}]}]}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Sigma]"}], ")"}]}], ")"}]}]}], ";", 
   RowBox[{"G2", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Lambda]", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"w1", "*", "T"}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]"}], ")"}]}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Lambda]"}], ")"}], "*", 
        RowBox[{
         RowBox[{"(", "w2", ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]"}], ")"}]}]}]}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Sigma]"}], ")"}]}], ")"}]}]}], ";"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.6734787163800325`*^9, 3.6734789856387777`*^9}, {
   3.6734832440182257`*^9, 3.6734833186484947`*^9}, 3.6734952969428196`*^9, {
   3.6734971557694345`*^9, 3.673497156904499*^9}, {3.6734973196970863`*^9, 
   3.67349732986606*^9}, 3.673497570179516*^9, {3.673501082389018*^9, 
   3.6735011083005*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Lambda]", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"PowerExpand", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"G1", "/", "G2"}], ")"}], "^", 
   RowBox[{"(", 
    RowBox[{"-", "\[Mu]"}], ")"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.673501216428684*^9, 3.673501230369482*^9}, {
  3.67350145010005*^9, 3.673501454525303*^9}, {3.6735016884926853`*^9, 
  3.673501720678526*^9}}],

Cell[BoxData[
 SuperscriptBox["T", "\[Mu]"]], "Output",
 CellChangeTimes->{
  3.6735018133318253`*^9, {3.673501872947235*^9, 3.673501914553615*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Remove", "[", 
  RowBox[{"G1", ",", "G2", ",", "y1"}], "]"}]], "Input",
 CellChangeTimes->{{3.6735017722074733`*^9, 3.6735017837931356`*^9}, {
  3.673501865421805*^9, 3.673501889621189*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"w1", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"y1", "*", 
       RowBox[{"G1", "^", 
        RowBox[{"(", 
         RowBox[{"\[Sigma]", "-", "1"}], ")"}]}]}], "+", 
      RowBox[{"y2", "*", 
       RowBox[{"G2", "^", 
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Sigma]"}], ")"}]}], "*", 
       RowBox[{"T", "^", 
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Sigma]"}], ")"}]}]}]}], ")"}], "^", 
    RowBox[{"(", 
     RowBox[{"1", "/", "\[Sigma]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"w2", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"y1", "*", 
       RowBox[{"G1", "^", 
        RowBox[{"(", 
         RowBox[{"\[Sigma]", "-", "1"}], ")"}]}], "*", 
       RowBox[{"T", "^", 
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Sigma]"}], ")"}]}]}], "+", 
      RowBox[{"y2", "*", 
       RowBox[{"G2", "^", 
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Sigma]"}], ")"}]}]}]}], ")"}], "^", 
    RowBox[{"(", 
     RowBox[{"1", "/", "\[Sigma]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Omega]1", "=", 
   RowBox[{"w1", "*", 
    RowBox[{"G1", "^", 
     RowBox[{"(", 
      RowBox[{"-", "\[Mu]"}], ")"}]}], "*", 
    RowBox[{"p", "^", 
     RowBox[{"(", 
      RowBox[{"\[Mu]", "-", "1"}], ")"}]}]}]}], ";", 
  RowBox[{"\[Omega]2", "=", 
   RowBox[{"w2", "*", 
    RowBox[{"G2", "^", 
     RowBox[{"(", 
      RowBox[{"-", "\[Mu]"}], ")"}]}]}]}], ";"}]}], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PowerExpand", "[", 
  RowBox[{"w1", "/", "w2"}], "]"}]], "Input",
 CellChangeTimes->{{3.6735018034382596`*^9, 3.67350180606841*^9}, {
  3.6735019010368423`*^9, 3.673501910024356*^9}}],

Cell[BoxData[
 SuperscriptBox["T", 
  RowBox[{"-", 
   FractionBox[
    RowBox[{"1", "-", "\[Sigma]"}], "\[Sigma]"]}]]], "Output",
 CellChangeTimes->{
  3.673501813686846*^9, {3.673501872966236*^9, 3.673501914570616*^9}}]
}, Open  ]]
},
WindowSize->{759, 835},
WindowMargins->{{562, Automatic}, {Automatic, 18}},
FrontEndVersion->"10.4 for Microsoft Windows (64-bit) (2016\:5e744\:670817\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 188, 3, 48, "Input"],
Cell[749, 25, 1883, 56, 112, "Input"],
Cell[CellGroupData[{
Cell[2657, 85, 429, 11, 68, "Input"],
Cell[3089, 98, 148, 3, 31, "Output"]
}, Open  ]],
Cell[3252, 104, 214, 4, 48, "Input"],
Cell[3469, 110, 1520, 50, 92, "Input"],
Cell[CellGroupData[{
Cell[5014, 164, 207, 4, 48, "Input"],
Cell[5224, 170, 221, 6, 39, "Output"]
}, Open  ]]
}
]
*)

